home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.9.bas < prev    next >
BASIC Source File  |  1996-12-24  |  493b  |  16 lines
  1. 100  REM +---------------+
  2. 110  REM !               !
  3. 120  REM ! Additionstest !
  4. 130  REM !               !
  5. 140  REM +---------------+
  6. 150  HOME : INPUT "1. SUMMAND: ";X
  7. 160  INPUT "2. SUMMAND: ";Y
  8. 170 Z = X +Y
  9. 180  REM Z=INT(1E9*Z+1E-9)/1E9
  10. 190  INPUT "RATE ERGEBNIS! ";G
  11. 200  PRINT : PRINT Z" = "G" (";
  12. 210  IF G = Z  THEN  PRINT "WAHR)"
  13. 220  IF G < >Z  THEN  PRINT "FALSCH)" CHR$(7)
  14. 230  REM Beispiele f}r falsches "FALSCH":
  15. 240  REM 0.1+0.6,0.1+0.8,0.3+0.4
  16. 250  REM 0.3+0.6,0.4+0.5,0.6+0.7